home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 86
/
086.d81
/
fern boot
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
1KB
|
34 lines
5 ifpeek(56)<>150thenpoke56,150:clr
6 ifathen41
10 dv=peek(186):ifdv<8thendv=8
20 poke53281,.:poke53280,.:print"[147]"
30 gosub260
40 sys57812"fern64.ml",dv,0:poke780,0:poke781,0:poke782,192:sys65493
41 ifa=0thena=1:load"9600 menu",dv,1
42 ifa=1thena=2:load"9800 menu.o",dv,1
43 ifa=2thena=3:load"i-menu $cc00",dv,1
44 ifa=3thena=4:load"frn dir ca00",dv,1
50 b$=" [221] [221]"
70 print" [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
80 fori=1to7:printb$:next
90 print" [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
120 printtab(15)"[145][145][145][145][145][204]oading..."
200 print"[144]load"chr$(34)"fern64.code"chr$(34)","dv
210 print"run"
220 poke44,64:poke16384,0
230 poke631,13:poke632,13:poke198,2
240 end
250 :
260 poke214,15:print
270 print" [151][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
280 print" [152] "
290 print" [198] [197] [210] [206] [214] [193] [204] [204] [197] [217] "
300 print" [194]y [201]an [193]dam (c) 1991 by [211]oftdisk "
310 print" [214]1.0 [208]ublished on [204][207][193][196][211][212][193][210] #86 "
320 print" [211]ubscriptions 1-800-831-2694 "
330 print" [193]ll [210]ights [210]eserved "
340 print" "
350 print" [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]"
360 return
10000 open15,8,15,"s0:fern boot":close15:save"fern boot",8:end